home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / PSION / !Psion_Text_ARCText < prev    next >
Encoding:
Text File  |  1990-08-25  |  686 b   |  67 lines
  1. ARC:
  2. GLOBAL A$(10),B$(3,1),B%,C%,D%,P%,P1%,N%
  3. ONERR FT::
  4. B$(1)="A":B$(2)="B":B$(3)="C"
  5. IN::
  6. PRINT"LOOK FOR",
  7. TRAP INPUT A$
  8. B%=1
  9. LP::
  10. N%=0
  11. WHILE A$<>"XXX"
  12. TRAP OPEN B$(B%)+":MAIN",A,V$
  13. FIRST
  14. TRAP USE A
  15. P1%=0
  16. WHILE FIND(A$)
  17. P%=POS
  18. N%=1
  19. D%=DISP(-1,A$)
  20. IF D%=1
  21. RETURN
  22. ELSEIF D%=32
  23. IF A$<>""
  24. FIRST
  25. C%=0
  26. DO
  27. P%=POS
  28. NEXT
  29. C%=C%+1
  30. UNTIL FIND(A=P1%
  31. IF C%>1
  32. P1%=P%
  33. ELSE FIRST
  34. ENDIF
  35. ELSE BACK
  36. ENDIF
  37. ELSEIF D%=%Z OR D%=%Z
  38. ARC:
  39. ELSE
  40. NEXT
  41. P1%=P%
  42. ENDIF
  43. ENDWH
  44. CLOSE
  45. B%=B%+1
  46. IF B%=4
  47. IF N%=0
  48. PRINT"NOT FOUND..."
  49. PRINT A$
  50. PAUSE 10
  51. GOTO IN::
  52. ELSE
  53. B%=1
  54. ENDIF
  55. ENDIF
  56. ENDWH
  57. FT::
  58. IF ERR<>206
  59. B%=B%+1
  60. IF B%=4
  61. B%=1
  62. ENDIF
  63. GOTO LP::
  64. ELSE
  65. RETURN
  66. ENDIF
  67.